home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / teach / lbasic / x2.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1995-07-06  |  131 b   |  11 lines
  1. 10  INPUT S
  2. 15  INPUT W
  3. 20  IF W <= 6000 THEN
  4. 30  IF W>6000 THEN 70
  5. 40  LET Y= ((5/100)*W)+S
  6. 50  PRINT Y
  7. 60  GOTO 100
  8. 70  LET Y= ((6/100)*W)+S
  9. 80  PRINT Y
  10. 100  END
  11.